home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -seriously_amiga- / shareware / graphics / proren / rexx / reverse.rexx
OS/2 REXX Batch file  |  1998-01-05  |  380b  |  34 lines
  1. /* Reverse Script for ProRen 2.0 */
  2.  
  3. ADDRESS PROREN.1
  4.  
  5. OPTIONS RESULTS
  6.  
  7. get searchsign
  8.  oldsign = result
  9. get basename
  10.  oldbase=result
  11. get index
  12.  oldindex=result
  13.  
  14. set searchsign off
  15. set basename '.reverse.'
  16. set index '-99999'
  17.  
  18. mark all
  19. start
  20.  
  21. set index oldindex
  22. set basename oldbasename
  23.  
  24. ret=0
  25. DO UNTIL ret=1
  26.   dirlistready
  27.   ret=result
  28. END
  29.  
  30. mark all
  31. start
  32.  
  33. set searchsign oldsign
  34.